楼主: wchampion
2065 3

DLM在WinBUGS中的实现 [推广有奖]

  • 0关注
  • 0粉丝

本科生

6%

还不是VIP/贵宾

-

威望
0
论坛币
236 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
3783 点
帖子
81
精华
0
在线时间
41 小时
注册时间
2009-11-19
最后登录
2022-12-20

50论坛币
贝叶斯动态线性模型中的  linear growth model,本要编了一个小程序,想实现一下,结果出错了,如下,那位高手帮我解答一下吧!
model{
   for (t in 2:n){
      y[t]~dnorm(mean.y[t],v)
mean.y[t]<-mean.mu[t]
      mu[t]~dnorm(mean.mu[t],w1)
mean.mu[t]<-mean.mu[t-1]+mean.beta[t-1]
      beta[t]~dnorm(mean.beta[t],w2)
      mean.beta[t]<-mean.beta[t-1]
}
    v~dnorm(mu0,tau0)
     w1~dnorm(mu0,tau0)
     w2~dnorm(mu0,tau0)
       mu0~dnorm(0,1.0E-6)
      tau0~dgamma(0.001,0.0001)
for (j in 2:m){
      pred.y[j]~dnorm(pred.mean.y[j],v)
pred.mean.y[j]<-pred.mean.mu[j]
      pred.mu[j]~dnorm(pred.mean.mu[j],w1)
pred.mean.mu[j]<-pred.mean.mu[j-1]+pred.mean.beta[j-1]
      pred.beta[j]~dnorm(pred.mean.beta[j-1],w2)
      pred.mean.beta[j]<-pred.mean.beta[j-1]}
}
#data
list(n=35,y=c(0.00,-0.70,-1.85,-3.00,-4.60,-5.55,-6.55,-13.90,-16.90,-19.25,
-21.60,-23.30,-24.85,-28.80,-33.35,-35.40,-37.10,-36.90,-36.80,-37.40,-37.70,-37.60,-37.60,-38.40,-38.50,
-38.00,-38.45,-39.05,-39.65,-40.70,-40.45,-40.65,-40.85,-40.70,-40.75),m=40,pred.mean.beta=c(1))
#inite
list(mu=1,mean.beta=1,v=0.1,w1=0.1,w2=0.1,pred.y=c(NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA
,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA)

关键词:winbugs WINBUG BUGS bug Win winbugs DLM
沙发
wchampion 发表于 2010-10-7 19:05:06 |只看作者 |坛友微信交流群
咱没有人理我啊,快急死了

使用道具

藤椅
wchampion 发表于 2010-10-7 20:15:00 |只看作者 |坛友微信交流群
model{
   for (i in 1:n){
      y[i]~dnorm(mean.y[i],v)
    mu[i]~dnorm(mean.mu[i],w1)
     beta[i]~dnorm(mean.beta[i],w2)
mean.y[i]<-mean.mu[i-1]+mean.beta[i-1]
      mean.beta[i]<-mean.beta[i-1]
         }
       v~dnorm(mu1,tau1)
     w1~dnorm(mu2,tau2)
     w2~dnorm(mu3,tau3)
for ( k in 1:3){
      mu[k]~dnorm(0,1.0E-6)
      tau[k]~dgamma(0.001,0.0001)}
}
#data
list(n=35,y=c(0.00,-0.70,-1.85,-3.00,-4.60,-5.55,-6.55,-13.90,-16.90,-19.25,-21.60,-23.30,-24.85,-28.80,-33.35,-35.40,-37.10,-36.90,
-36.80,-37.40,-37.70,-37.60,-37.60,-38.40,-38.50,-38.00,-38.45,-39.05,-39.65,-40.70,-40.45,-40.65,-40.85,-40.70,-40.75))

#inite
list(mu=1,mean.beta=c(1),mean.mu=c(1),v=0.1,w1=0.1,w2=0.1)

出现错误mean.mu没有定义或在数据中没有设置

使用道具

板凳
wchampion 发表于 2010-10-8 16:43:55 |只看作者 |坛友微信交流群
看来没有人理我了

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-5-22 04:46